home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Collections: Camelot
/
Camelot 098 (1990-12)(Swedish User Group of Amiga)(SE)(PD)[WB].zip
/
Camelot 098 (1990-12)(Swedish User Group of Amiga)(SE)(PD)[WB].adf
/
XLisp-Stat
/
Book
/
altlinkstack.lsp
< prev
next >
Wrap
Text File
|
1990-10-11
|
833b
|
23 lines
; book p.340
(require "data/stackloss")
(require "functions/altlink")
(defproto stack-obs '(air temp conc loss) () observation-proto)
(defmeth stack-obs :air () (slot-value 'air))
(defmeth stack-obs :temp () (slot-value 'temp))
(defmeth stack-obs :conc () (slot-value 'conc))
(defmeth stack-obs :loss () (slot-value 'loss))
(defmeth stack-obs :log-loss () (log (send self :loss)))
(flet ((make-obs (air temp conc loss index)
(let ((label (format nil "~d" index)))
(send stack-obs :new
:air air
:temp temp
:conc conc
:loss loss
:label label))))
(setf stack-list (mapcar #'make-obs air temp conc loss (iseq 0 20))))
(plot-observations stack-list '(:air :log-loss))
(plot-observations (select stack-list (iseq 11 20)) '(:temp :conc))